home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 April / Macworld (1999-04).dmg / Cool Specials / Al Morale Demo / Al's Stuff / D200.DCR / 00021_StartUp.ls < prev    next >
Encoding:
Text File  |  1999-02-16  |  1.2 KB  |  60 lines
  1. on startMovie
  2.   global gNickFlag, gLite1, gLite2, gLite3, gButtonPups, gNickLite
  3.   set gNickFlag to 0
  4.   SetHiliters()
  5. end
  6.  
  7. on CheckStart
  8.   global gFreshStart
  9.   if gFreshStart = 1 then
  10.     SetUp()
  11.     set gFreshStart to 0
  12.   else
  13.     nothing()
  14.   end if
  15. end
  16.  
  17. on CapturePrefs
  18.   global gNickLite, gButtonPups, gNickChange
  19.   setAt(gButtonPups, 3, gNickLite)
  20.   set the text of member "ButtonPups" to string(gButtonPups)
  21.   loadNicknames()
  22.   puppetMan(0)
  23. end
  24.  
  25. on SetHiliters
  26.   LoadButtons()
  27. end
  28.  
  29. on LoadButtons
  30.   global gLite1, gLite2, gLite3, gNickLite, gButtonPups
  31.   set gButtonPups to the text of field member "ButtonPups"
  32.   set gButtonPups to value(string(gButtonPups))
  33.   set gLite1 to getAt(gButtonPups, 1)
  34.   set gLite2 to getAt(gButtonPups, 2)
  35.   set gNickLite to getAt(gButtonPups, 3)
  36.   set gLite3 to getAt(gButtonPups, 4)
  37. end
  38.  
  39. on doGreetNew
  40.   global gFlatNow
  41.   set gFlatNow to 200
  42. end
  43.  
  44. on radioGroup spriteList, high, off
  45.   repeat with n in spriteList
  46.     puppetMan(n, 1)
  47.     set the member of sprite n to member off
  48.     set the member of sprite the clickOn to member high
  49.   end repeat
  50.   updateStage()
  51. end
  52.  
  53. on SpeakIdleRadio
  54.   radioGroup([25, 26, 27, 28, 29, 30, 31, 32], "on", "off")
  55. end
  56.  
  57. on SUQuitRadio
  58.   radioGroup([14, 15], "on", "off")
  59. end
  60.